(define (square-list items)
    (define (square x)
        (* x x)
    )
    (if (null? items)
        `()
        (cons (square (car items))
            (square-list (cdr items))
        )
    )    
)
(display (square-list (list 1 2 3 4 5)))
(newline)

(define (square-list2 items)
    (map (lambda (x) (* x x)) items)
)
(display (square-list2 (list 1 2 3 4 5)))
(exit)